object FolderMaintenancer: TFolderMaintenancer Left = 270 Top = 108 HelpContext = 57000 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Folder Maintenance Centre' ClientHeight = 446 ClientWidth = 592 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Book: TNotebook Left = 16 Top = 8 Width = 567 Height = 393 PageIndex = 1 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Setup' object Label1: TLabel Left = 0 Top = 8 Width = 125 Height = 13 Caption = 'Choose &Folders to process' end object GroupBox1: TGroupBox Left = 0 Top = 295 Width = 561 Height = 97 Caption = 'Actions to perform' TabOrder = 3 object cbCompress: TCheckBox Left = 280 Top = 48 Width = 273 Height = 17 Caption = '&Compress (remove deleted messages)' TabOrder = 3 OnClick = cbCheckIntegrityClick end object cbPurge: TCheckBox Left = 280 Top = 24 Width = 273 Height = 17 Caption = '&Purge old/exceeding messages' TabOrder = 1 OnClick = cbCheckIntegrityClick end object cbCheckIntegrity: TCheckBox Left = 16 Top = 24 Width = 257 Height = 17 Caption = 'Check &Integrity/Repair' TabOrder = 0 OnClick = cbCheckIntegrityClick end object cbKillDupes: TCheckBox Left = 16 Top = 48 Width = 257 Height = 17 Caption = 'Remove &Duplicates' TabOrder = 2 OnClick = cbCheckIntegrityClick end object cbFindOrphans: TCheckBox Left = 16 Top = 72 Width = 537 Height = 17 Caption = 'Find "&Orphaned" files in the attachment directories' TabOrder = 4 OnClick = cbFindOrphansClick end end object bSelectAll: TButton Tag = 1 Left = 256 Top = 266 Width = 145 Height = 25 Caption = 'Select &All' TabOrder = 1 OnClick = bSelectAllClick end object bUnSelectAll: TButton Left = 416 Top = 266 Width = 137 Height = 25 Caption = '&Unselect All' TabOrder = 2 OnClick = bSelectAllClick end object Panel1: TPanel Left = 0 Top = 24 Width = 561 Height = 237 BevelOuter = bvLowered Caption = '~' TabOrder = 0 object lFolders: TMLVGrid Left = 1 Top = 18 Width = 559 Height = 218 Align = alClient BorderStyle = bsNone DefaultRowHeight = 16 DefaultDrawing = False FixedCols = 0 RowCount = 1 FixedRows = 0 Options = [goThumbTracking] TabOrder = 0 OnKeyDown = lFoldersKeyDown OnMouseDown = lFoldersMouseDown AltDrag = True AutoColResize = True AutoSearch = False MultiSelect = False Header = hFolders ImmediateSelect = False OnDrawItemImage = lFoldersDrawItemImage end object hFolders: THeaderControl Left = 1 Top = 1 Width = 559 Height = 17 Sections = <> end end end object TPage Left = 0 Top = 0 Caption = 'Process' object lCurProcess: TLabel Left = 0 Top = 4 Width = 564 Height = 59 AutoSize = False end object lOverall: TLabel Left = 0 Top = 96 Width = 79 Height = 13 Caption = 'Overall progress:' end object lReport: TLabel Left = 0 Top = 144 Width = 32 Height = 13 Caption = '&Report' FocusControl = eLog end object pbCurProgress: TProgressBar Left = 0 Top = 66 Width = 561 Height = 23 TabOrder = 0 end object pbOverall: TProgressBar Left = 0 Top = 112 Width = 561 Height = 25 TabOrder = 1 end object eLog: TMemo Left = 0 Top = 160 Width = 561 Height = 161 ScrollBars = ssBoth TabOrder = 2 end object gbTotals: TGroupBox Left = 0 Top = 319 Width = 561 Height = 73 Caption = 'Total results' TabOrder = 3 object lbDupes: TLabel Left = 109 Top = 14 Width = 83 Height = 13 Alignment = taRightJustify Caption = 'Duplicates found:' end object lbPurged: TLabel Left = 105 Top = 32 Width = 87 Height = 13 Alignment = taRightJustify Caption = 'Messages purged:' end object lbSaved: TLabel Left = 104 Top = 50 Width = 88 Height = 13 Alignment = taRightJustify Caption = 'Disk space saved:' end object lDupes: TLabel Left = 200 Top = 14 Width = 6 Height = 13 Caption = '0' end object lPurged: TLabel Left = 200 Top = 32 Width = 6 Height = 13 Caption = '0' end object lSaved: TLabel Left = 200 Top = 50 Width = 6 Height = 13 Caption = '0' end object lFoldersChecked: TLabel Left = 472 Top = 14 Width = 6 Height = 13 Caption = '0' end object lDamaged: TLabel Left = 472 Top = 32 Width = 6 Height = 13 Caption = '0' Visible = False end object lRecovered: TLabel Left = 472 Top = 50 Width = 6 Height = 13 Caption = '0' Visible = False end object lbRecovered: TLabel Left = 362 Top = 50 Width = 102 Height = 13 Alignment = taRightJustify Caption = 'Messages recovered:' Visible = False end object lbDamaged: TLabel Left = 351 Top = 32 Width = 113 Height = 13 Alignment = taRightJustify Caption = 'Damaged folders found:' Visible = False end object lbFoldersChecked: TLabel Left = 382 Top = 14 Width = 82 Height = 13 Alignment = taRightJustify Caption = 'Folders checked:' end end end end object bStart: TButton Left = 240 Top = 408 Width = 97 Height = 25 Caption = '&Start' Default = True Enabled = False TabOrder = 1 OnClick = bStartClick end object bStop: TButton Left = 352 Top = 408 Width = 89 Height = 25 Caption = '&Stop' Enabled = False TabOrder = 2 OnClick = bStopClick end object bClose: TButton Left = 456 Top = 408 Width = 91 Height = 25 Cancel = True Caption = 'Close' ModalResult = 2 TabOrder = 3 end object tmClose: TTimer Enabled = False OnTimer = tmCloseTimer Left = 48 Top = 392 end end